home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.10 Oct 88 / driver stuff / SysEnv.a < prev   
Encoding:
Text File  |  1988-07-24  |  438 b   |  23 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    Glue for SysEnvirons that was skipped by Apple
  3. ;    F. Alviani
  4. ;    7/88
  5. ;
  6.  
  7.         INCLUDE    'TRAPS.A'    ;Include Memory manager macros.
  8.         PRINT ON
  9.  
  10. SYSENVIRONS     FUNC     EXPORT
  11.         movea.l 4(sp),a0    ;a0 contains ptr to world record
  12.         move.w    8(sp),d0    ;d0 contains desired version
  13.         _SysEnvirons
  14.         movea.l    (sp)+,a0    ;get return addr, remove
  15.         lea    6(sp),sp    ;pop parameters
  16.         move    d0,(sp)        ;put result in place
  17.         jmp    (a0)        ;go home
  18.  
  19.         DC.B    'SYSENVIR'
  20.  
  21.         END
  22.  
  23.